home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / CLASSICS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  768 b   |  23 lines
  1. 10  CLS :PRINT "CLASSICS":PRINT
  2. 20  PRINT " 1 - FROM `THE LITTLE NOTEBOOK FOR ANNA MAGDALENA BACH' BY J. S. BACH"
  3. 30  PRINT " 2 - SOLFEGGIETTO BY C. P. E. BACH"
  4. 40  PRINT " 3 - WILLIAM TELL OVERTURE"
  5. 50  PRINT " 4 - I'VE BEEN WORKING ON THE RAILROAD (OUTSTANDING)"
  6. 60  PRINT " 5 - UNKNOWN BACH"
  7. 70  PRINT " 6 - UNKNOWN CHOPIN"
  8. 80  PRINT " 7 - UNKNOWN BACH (LUDWIG)"
  9. 90  PRINT " 8 - MINUET BY J. S. BACH"
  10. 100  PRINT " 0 - QUIT
  11. 110  PRINT :INPUT "PLEASE MAKE YOUR SELECTION: ",N
  12. 120  IF N=0 THEN END
  13. 130  IF N>8 THEN 110
  14. 140  ON N GOTO 150,160,170,180,190,200,210,220
  15. 150  CHAIN "A:MAGDALEN.BAS"
  16. 160  CHAIN "A:SOLFE.BAS"
  17. 170  CHAIN "A:WILLTELL.BAS"
  18. 180  CHAIN "A:RAIL.BAS"
  19. 190  CHAIN "A:BACH.BAS"
  20. 200  CHAIN "A:CHOPIN1.BAS"
  21. 210  CHAIN "A:LUDWIG.BAS"
  22. 220  CHAIN "A:MINUET.BAS"
  23.